SVM Mac CD-ROM 59/SVM Mac CD-ROM - No 59.iso/Wanadoo/Media/PresentL.dxr/Internal_201_MotLien.ls

Text File | 2000-01-18 | 748 b | 35 lines

property pMemb0, pMemb1, pMemb2

on mouseEnter me
  set vName to the name of member the memberNum of sprite the currentSpriteNum
  delete char -30000 of vName
  set pMemb0 to vName & "0"
  set pMemb1 to vName & "1"
  set pMemb2 to vName & "2"
  if pMemb0 <> VOID then
    set the member of sprite the currentSpriteNum to pMemb1
    cursor(280)
  end if
end

on mouseDown me
  if pMemb2 <> VOID then
    set the member of sprite the currentSpriteNum to pMemb2
    cursor(290)
  end if
end

on mouseUp me
  if pMemb1 <> VOID then
    set the member of sprite the currentSpriteNum to pMemb1
    cursor(280)
  end if
end

on mouseLeave me
  if pMemb0 <> VOID then
    set the member of sprite the currentSpriteNum to pMemb0
    cursor(-1)
  end if
end